VBA从工作表另存为工作簿

最新推荐文章于 2024-07-05 17:13:52 发布

一蓑烟雨紫洛

最新推荐文章于 2024-07-05 17:13:52 发布

阅读量4.8k

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/weixin_34280060/article/details/107984488

版权

VBA 专栏收录该内容

10 篇文章 1 订阅

订阅专栏

Sub 宏1()
 Application.ScreenUpdating = False   '屏幕更新关闭
 Application.DisplayAlerts = False    '显示和预警提示关闭
 Dim folder As String   'String字符串
 folder = ThisWorkbook.Path & "\ 班级 "
 If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder   'vbDirectory文件夹   MkDir创建目录或文件夹
 Dim sht As Worksheet
 For Each sht In Worksheets
 sht.Copy
 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & sht.Name & ".xls"   '另存在这个路径  名字是工作表名字.xls
 ActiveWorkbook.Close
 Next
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
End Sub